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3 * 

4 * pRoGRAM hAME F°H-25 

5 « 

6 * MOOFL NUMBER 8F025 

7 * 

H » PURPOSE FORTRAN PHASE-25 

9 * 

10 * PROGRAMMER DICK W ALLMANN 

11 * 

\2 ****#»#**#*##*#*« REVISION LIST *****♦*#**##** 

j 3 # 

14 * rv oatf. s co by Reason fop change 

15 * - 

16 * 

1? * ol ll/l 6 / 7 NONE RPH INITIAL RELEASE 

1 R * 

21 HONG MPX FORTRAN ** Li ST CONSTANTS 

22 #*ttfltt***#*##tt#*##»»***««*««* *«»*♦»»#**»»*♦♦»♦*#*** 

23 *STATUS-VFRSfON 1» MODIFICATION 

24 » 

25 *FUncTiOn/OPF r A t ION- 

26 * » LIST CORE REQUIREMENTS 

*. 27 » » CONVERT CONSTANTS TO DECIMAL AND LIST 

» 28 * CONSTANTS AMD THEIR ADDRESSES. Aj USER S 

| 29 * PEQ (, EST. REAL CONSTATS A R E LT sT ED FI"ST' t 

! 30 * FO|_l OWED BY INTEGER COMSTANTS 

31 « 

3? GENTRY POTNTS- 

33 * * NFO - PHASE 25 IS LOADED BY PHASE 24 wIa A 

34 * CALL To POLR* AND EXECUTION IS uEftUM 

35 * AT LOCATION LAfLED NEQ. 

36 * 

37 »INPUT- 

«w 30 * » THE STATEMENT STRING 

39 * « THE SYMBOL TARlF 

4 * * THE FORTRAN COMMUNICATIONS AREA 

41 * 

42 *o UT P UT - 

43 * * THE STATEMENT STRING 

44 * «• THE SYMBOL TARLE 

45 * * THE FORTRAN COMMUNICATIONS ARFA 

46 * * LISTING OF REAL AND INTEGER CONSTANTS 

47 » * LISTING OF CORE REQUIREMENTS 

48 * 

49 *£XTFRN4L REFERENCES- 

5 « « SUBPOUflNES- 

51 * ROL D X 

52 * 

53 *EXiTS- 

54 * * noRmAL- 

55 * PHASE 26 IS LOADEP VIA A CALL TO THF 

56 * ROLRX ROUTINE AND CONTROL 1 I & PASSfD. 

57 % 

158 * * ERpnRS- 
59 * overlap- 



SEITE ? 

60 * IF A PREVIOUS PHASE HAS DETECTED *N 

61 « OVERLAP ERROR THEN AN IMMEDIATE EvlT 

62 * T A k E S P LACF . NO Ov e R L aP E pK ° R I S 

63 * DETECTED IN THIS PHASE 

64 * sVNTAX- 

65 « no SYNTAX ERRORS ARE DETECTED IN cHASF 

66 * 

67 *TAP|_ES/W0RK ARE'AS- 

68 * • THE STATEMENT STRING 

69 * * THE SYMBOL TABLE 

70 * «• THE FORTRAN COMMUNICATIONS ARFA 

71 * «• ORG + 120* A 120 KO R D MFSSAGE BUILDING *Nr> 

72 * nHTPUTTlNG BUFFER. 

73 * 

74 *ATTPIBUTFS-N/A 

75 * 

76 »N0TES-ORO6RAM SWITCHES 

77 * THE SW|TCh USED IN THE PHASE IS TRANSFERS 

78 * jf POSITIVE OR NORMAL=M IF ZEPO» 

79 « * S TPS 

8() * N=NORMAL=SYM80L TABLE SCAN FOR LISTING 

81 * REAL CONSTANTS. 

82 * T=TPANSFER = SYMBOL TABLE SCAN FOR LlSTtNf- 

83 # IMTERER CONSTANTS. 

84 #*»«.#*#«#•»#**#*###«■*#**# *##«»*** »#»*****#»■»*#*•»*»•» 

85 « 

__§6_ ars ^^ C&.&& 

87 HOMfi MPX FORTRAN *• LIST CONSTANTS 

88 « 

89 « SYSTEM AND FORTRAN EQUATES 

90 * 

-^T* MEmry EQU y - 7FFh C*£G MAXIMUM CORE StZf 

92 PHSIZ EOU 4«32o MAXIMUM PHASE «IZE 

93 OVERL EOU MEMRY-PHSIZ PHASES 2-29 START 

94 FCOm f^U OVERL-22 FORTRAN COMM. tapLE 

95 PHNTB EOU FCOM-56 PHASE TABLE 

96 ROLRX FOU PHNTB-5 INTERPHASE CALl 

97 AREA EOU OVERl+3*320+1O0 PRINT DATA AQnRFSS 

98 PRINT EQU AREA*1 PRINT ENTRANCE 

99 « 

100 * FORTRAN COMMUNICATIONS AREA 

101 * 

102 D G FCOM START FORTRAN COMM aRfA 

103 SOFS pSS 1 STAPT OF STRING 

104 EOFS BSS 1 END OF STRING 

105 S0F5T RSS 1 START OF SYMBOL TAB! E 

106 SOFNS RSS 1 LENGTH OF PROGRAM 

107 SOFXT RSS 1 SIZE OF WORK AREA (VARIES) 

108 SOFGT RSS 1 SIZE OF CONSTANTS APEft 

109 EOFST RSS 1 END OF SYMBOL TABLE 

110 COMON RSS 1 RELATIVE ENTRY POINT 

111 CSIZE RSS 1 SIZE OF COMMON 

112 ERROR BSS 1 ERROR FLAG 

113 * BIT 15 OVERLAP ERROp 

ii4 * bit i4 other error 

115 FNAME RSS 1 PROGRAM NAMF 

lib PSS 1 2ND WORD OF NAME 

117 SORF RSS 1 SUBP (-> OR F^'NC (♦> 

118 CCWD PSS 1 CONTROL CARD *0PQ 

119 • 8IT 15 TRANSFER TRACE 



SEJTF 3 

120 * BIT 14 ARITHMETIC TRACE 

121 * BIT 13 EXTENDED PRFC^SION 

122 * BIT 12 LIST SYMBOL TABLE 

123 * BIT 11 LIST SUBPROGRAM MAMrS 

124 * BIT 10 LIST SOURCE PROGRAM 
i25 * BIT 9 ONE WORD INTE&ERS 

126 IOCS rSS i IOC IOCS CONTROL CaRq W*Rn 

127 * 

128 * SEE PHASE ONE FOP PIT PATTERNS 

129 * 

l3Q OFCNT RSS 1 DEFINE FILE COUMT 

131 * 

132 LCOMN pSS 2 INSKEL COMMON 

133 * 

1 3* ICCEP PSS 2 IOCS CONTROL CARD ERROR 

135 * 

j36 BSS 2 SYSTEM LOADER USE 

137 » . . 

13H • END OF FORTRAN COMMUNICATION 

139 * AREA 

140 * 

141 ORG OVERL 

142 * 

143 NEQ RSC L ENT BRANCH TO IMITLZ PROr,R*M 

144 WDCNT DC *-* *»ORD COUNT OF PRINT BUFFER 
j4S BUF DC /*0G0 BLANK 

146 nc /4000 BLANK 
1*47 oc /4C00 BLANK 
1*8 DC / 4 000 BLANK 

149 DC /4000 BLA^K 

150 DC /4000 BLANK 

151 nC /4000 BLANK 

152 oc /4000 BLANK 

153 DC /4000 BLANK 

154 OC /4000 BLANK 

155 OC /4000 BLANK 

156 DC /4000 BLANK 

157 DC /*000 BLANK 

158 OC /^COO BLANK 

159 DC /4000 BLANK 

160 DC /400Q BLANK 

161 DC /40CO BLANK 

162 * 

163 « INITIALIZE PHASE 

164 * CHECK FOR SYmBOL 'ABLE OVeRlA° 

165 * 

166 » 

167 * INITIALIZE TRA\<SFERV Ec TOR 

168 ENT LOX L3 Z GET A0DR OF CONSTANT AREA 

169 STX L3 NEQ SAVE ADOR 

170 * 

1 71 ID L ERROR TEST ERROR $W FR PREV PHASE 

172 RSc L EXIT,Z BR TO E*IT IF OVERLAP fRROR 

174 • PRINT CORE RECREMENTS IF REnUpSTEO 

175 * SET UP TO LIST CONSTANTS. 

iTb » CHECK FOR EXTENDED PRECISION. 

,77 « MAKE MODIFICATIONS TO CONSTANTS IF 

^78 » »f xT FNDE.D PR ECI s lON. 



79 
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SEITE 



180 

182 
183 

18* 



L4011 



STO 



85 



186 
187 
1 88 
Y89 

i9o 
191 
192 
\93 
194 

198 

199 

?00 

201 

202 

203 

20 4 
2f}5 

?06 

207 
20* 
209 

210 
211 
212 

213 

214 
215 

2*17 

2l H 
219 
220 
221 

222 
223 
224 

225 
226 
227 

228 

229 
?3f) 

231 
232 

^33 

?34 
235 

236 
237 
238 
239 






# 
* 
•» 

tt 






TEXT1 



1.0 

SLA 

PSC 



SLA 
HSc 



PTEXi 



L4012 



MDX 

mox 

MDX 
MDX 

use 

ORG 

DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
OC 
OC 
OC 
OC 
OC 

1.0 

ST 

I.OX 

STX 

3ST 

LOX 

STX 

lOx 

STX 

BSi 

LHX 
STX 

STX 

Lnx 
nSc 
Ln 
sto 



3 PUT ZERO IN 

3 STPS-Z *SYMRDL TABLE p ASS SwlfCH 

BR To .STATE CORE REQUIREMENT^. 
IF NO L ISTING REQUIRED 

L CCWD LOAD CONTROL C*RD WO^D 
12 SHIFT LIST SYM TBL BtT 
L COREQt- BR IF NO LIST HeqUEStEO 



TEST IF EXTENDED PRECISION! 



1 
L L4012.- 



SHIFT EXTENDED PRFC QlT 

BR IF NO EXTENDED PRECISION 



MODIFY PROGRAM IF 

EXTENDED PRECISION 

L RVARF,1 INCR ^EAL VARIABLE FrtRMAT 

L INCR»4 INCR P"L t POINT FORMAT rROM 

20 TO 24 

L L4024.3 INCR MO. DIGITS PaST DFCML 

L L4025»4 INCR FIELD WTDTH 

L L*012 

8UF 120 MAKE A MESSAGE AREA 

/D9oo R 

/C^OO E 

/C100 A 

/ipoo L 

/4000 8LANK 

/C300 C 

/D600 

/D500 M 

/E200 S 

/E300 T 

/C100 A 

/D500 M 
/E300 r 

/E200 S 

3 PAPIN-Z INT VALUE PRINT ARE* POINT 

L AREA Sa^e IN MESSAGE ADDRESS 

3 1 INCREMENT XR3 

L3 WDCNT WDCNT FOR 3|_NK LN PpInT 

L PRINT 3R TO PRINT BLNK LI*'E 

L3 TEXTi PUT ADOR OF RtAL CONSTANTS 

L3 AREA *MSG IN PRinT MSG L'"»C 

3 7 SET XR 3 TO WDCNT OF 7 

L 3 WocNT STORr IT xm C ALL 
L PRINT BR TO PRINT THE HEADER 
L3 PHEAD+2 SET JP PHEAD ROUTINE fO 

3 PHEAO+1 tt C0NT RATHER THAN Bp OUT 
L3 BLKPA SET 3LKPA TO *TN TO PhEAQ* 
L3 Z RESET TRANSFER VECTnR 
L BLKPa + 1 3R TO BLANK OUT PRIkiT AREA 

L SOFXT INITIALIZE LOCATION 

3 CLOC-7 OF CURRENT CONSTANT 



SEITE 5 

240 L401X l.nx II SOFST INITLZ SYM TRL POINTeR 

241 STX LI STP 

242 L4013 LH 3 STP-Z LOAD SYM Trl POINTER 

?43 S L EOFST TEST FOR ENQ OF SYMBOL TABL 
?44 rSc L L4033, BR IF E'^D OF SYMBOL TAqLE 

?45 L4021 Ln 10 LOAO SYMBOL TABLE ID WoRO 

246 BSC L L4032»- BR IF NOT CONSTANT 

2 47 SLA 1 

?48 3Sc L L4031, Z BR IF INTEGER CONSTANT 

249 LO 3 STPS-7 LD SYMBOL TABLE PASS SWITCH 

250 * 

251 r^c L L 4 032,z BR IF SWITCH NONZERO 

^52 #*#»##«*##*»)»#*#»#»*«*♦*»*»#»*»**«»»**»«*»*«*#»*** 

?53 * 

? 54 * CON v E RT R EAL C0N ST ANT AND P R lM T 

? 55 * THE CONSTANT AND ITS LOCATION 

256 # 

g57 #*!»####«#*####»*»#«««***»##*»#«##»##»#*###»#»##*## 

?59 * PRINT HEADER IF NOT PRINTED BEFnRE 

260 • NOTE— NEXT INSTRUCTION IS REPl'AcEO 8 

261 * *A BSC L PHFAD 2 AFTER THE HEADER 

262 # *IS PRINTED. 

263 * 

264 PHEAO RSc L P^EXi 

265 * 

266 * 

^67 * INSERT PARAMETERS FOR c^ERTrNr, 

2*68 * OF FLOATING POINT COMST TO 

269 * E-TYPE, EBC-COOE 

2 7 ti * 

?71 L H 3 RVARF-Z INSERT VARIABLE FORmaT 

?72 AMD 3 1 MASK OUT ALL 1 R^T BIT 15 

? 73 STO L PREC SaVE PRECISION 

? 74 ^Sc L U022«E BR IF EXTENDED PRECISION 

?75 * 

276 » INSERT NORMAL PREC CONSTANT 

277 «■ FROM SYMBOL TAB^E 
p7B » 

?79 L D 11 GET 1/2 OF CON FR SYm TRL 

280 STn L CONVT-3 S A V£ In COnVE rT BUFFER 

281 LO 12 GET 2MD PART OF CONSTANT 

282 SRT 8 SHIFT oFF BITS 8-15 

283 SLA R SHIFT RlTS 6-7 BACK 

284 STO L CONVT-2 SAVE IN CONVERT BUFFrR 

285 SLT 8 SHIFT HITS g-15 BACK To ACC 

286 STO L BIN SAVE BINARY POINT 
28 7 MOX L4024 BR TO CONTINUE 
288 * 

?89 * INSERT EXTENDED PRECISION CONSTANT 

290 * FROM SYMBOL T*3l.E 

291 * 

292 L4022 LD \ GET SYM TBL ID WORD 
y93 SLA 8 SHIFT OFF BITS 0-7 

29^ SRA 8 RIGHT JUSTIFY REMAINDER 

295 STO L BIN SAVE IN BINARY POINT 

296 LH 1 1 GET 1/2 OF CON FR SYm TBI. 

297 STO L_ CONVT-3 SAVE IN CONVERT BUFFrR 
?98 LD 1 ?- GET ?MO PART OF CONSTANT 
P99 STO L CONVT-2 SAVE IN CONVfR t BUFFrR 



SETTE 



300 

301 

302 

30 3 
3q4 

305 
306 
107 

30a 

3 39 

3 1 
311 
312 
313 
31* 
315 
316 
317 
'Ji8 
3l9 
320 
321 

322 
323 

32* 
325 
326 
.327 
3?B 
329 
330 
33] 
332 
333 
334 
135 
3 36 
337 
33B 

339 
3*0 

3*1 
3*? 
3*3 

3** 
345 

1*6 
147 

149 
350 
35 1 

352 

353 
354 

J 55 
356 
357 

158 
159 






L4024 
L*025 



STX 

LOX 

STx 

LH 

STO 

SLA 

STO 

RSI 

LH 

BSl 



insert oTheR parameters fo r conve wt 

after oecm 



L? 
3 

L 

L 

L 
3 
3 



6 

DU 

13 

Ww 

1 

FRMAI 

16 

FORjP 

BINRY 

H7E00-Z 

TOPAU-Z 



NUMBER OF DIGITS 

•POINT 6 OR 9 

FIELD WIDTH 

• 13 OR 17 

GET A CONSTANT 1 

SET FlT PT INDICATOR 

CLEAR ACC 

SET D&TA TY=>F 

BR TO CONVERT 

LOAD AN EQUAL 

BR TO PUT OUT 



O/P 
DATA 

Sign 
EQUAL 



Tn 



TYPE 
nECML 






CONVERT ADDRESS 

AND MOVE TO PRINTAREA 



RSI 

hSi 

LO 

A 

STO 



3 ATPA-Z 
3 TOPAB-Z 

3 CLOC-Z 

3 rvaRf-z 

3 CLOC-Z 



8R TO CONVERT AND MOVE SU8R 
BR TO PUT OUT EXTRA sLANK 

LOAD CONSTANT LOCATION 

incR 3Y Real var emT btts 

SAVE BACK T \| CONSTANT L OC 



■* 
■» 



INCREMENT PRINT AREA POINTER 
AND TEST IF LIVJE IS FULL 



CKENO LD 
5 

BSC 
BSl 
MRX 



3 PAP-Z 
3 LNEND-Z 

L* 03 P* Z 
3 PRINN-Z 

L4032 



LD PRINT AREA POINTER 
SUBTRACT END OF LINE 
BR IF LINE NOT FULL 
PRINT A LINE 
gR TO c 0NTjNUe 



■it 

HTeS 

L4031 



DC *-» HEADER TEST SWITCH 



INTc 



INTO 



LD 

8SC 

LD 

BSC 
BSl 

RSl 

LH 

RSI 

MOX 

BSl 

RSl 

L" 

STO 

FOR 

BSC 

LD 

SRT 

MOX 

STO 
BSl 
tn 

RSI 

RSl 

MHX 



STpS-Z LD SYvirjOL Ta PL E PaSS SWjT C H 

L403?» - BR IF SWITCH ZERO 

HTES LD HEADER TEST SWITCH 

INTC t 7 BR IF NON-ZERO 

BLKPA-Z BLANK OUT PRINT AREA 

PRINN-Z PRINT m ANK Ll N E 

T&X2A-Z GET ADO« .INTEGER CONSTANTS 

PTEXT-Z BR TO MOVE TEXT TO Po A REA 

HTEStl SET HEADER TEST SW NON-ZERO 

PRINN-Z PRINT HEADER 

INTLS-Z BR TO CONVERT INTEGEP TONS 

1 GET WORD FROM SYMROL TaBLE 

convt-3 save in conversion a-?ea 

h8000-z remove bit 

intd,z br if wd not zero 

h3000-z load 3it t 

1 put 1 s in 9 n$ an^ t 

BIN»i INCRFMENT BINAHY POImTfR 

CONVT-3-Z SAVE CONVERT WORD 

BINRY BR TO CONVERT DATA To nECIM 

H7E00-Z LD SIGN 

TOPAU-Z BR TO pUT IM P*INT 3"FfER 

ATPA-Z MOVE AOOR Of CON TO PR AREA 

CLOCtl INCR CONSTANT LOCATION 
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36 
361 

362 

3»3 
364 

365 

366 

36? 

368 
369 
370 
371 
372 
173 
374 
175 
376 
377 
378 
379 
380 
3«1 
382 
183 
384 
385 
386 
187 
188 
189 
390 

391 
39? 
393 

194 
395 

196 
-3 97 

398 
199 
4OO 

40 1 
402 

4 03 

4 04 

405 
4 6 

4 07 
408 
4O9 
4IO 
411 
412 

413 

4 14 

4 15 

4I6 
4l7 
4I8 
4 19 



MDX 



i.4o32 BSI 



L 4 033 






S 
RSI 



L^ 
RSC 

STO 

RSC 



COREQ 






CKENQ 8R TO TEST IF PR LIN* FULL 

GET NEXT C0NST a nT, 

MOVE SYMBOL TABLE POINTER 

3 MSTP-Z MOVE SYMBOL TABLE POtNTER 
L L4013 8R TO TEST FOR SYM Ta L END 

END OF SYMBOL TABLE ENCOUNTERED 

3 pAP-Z GET PRINT ARFA POINTfR 
3 PAPIN-Z SUbTRaC 1 INITIAL VAL p P ARE 
I. PRINN'Z PR LN IF DIFFERENCE «JT ZERO 

IK SYMBOL TABLE PASS SW IS NOnZfRO 
GO To LISTING OF CORf REQUIREMENTS 

3 STPS-7 LD SYv| TBl bAsS SWITCH 
L COREQ. Z BR IF NONZERO 

3 1 SET SYM TSL PASS SWITCH 
3 STPS-7 *TO NONZERO 

L L401X GO TO SECOND PASS OF 

SYM T3L FOR LISTING OF 
*INTF3ER CONSTANTS 



RSI 
RSI 

LD 
RSI 

ldx 

RSI 

LO 

SLA 

RSI 

LO 

RTE 

i.o 

SLT 

PS I 

LD 

SLA 
PSl 
LD 
SI. A 

RSI 
RSI 



LD 
RST 

RSI 
LD 
STO 
RST 



3 
3 
3 

3 

LI 

3 

1 

3 

1 



LIST CORE REQUIREMENTS 

BLKPA-Z BLANK PRINT AREA 

PRINN-Z PRINT BLANK LINE 

CORA-Z GET ADD* .CORE REQUIREMENTS 

^TE X T-Z BR TO MOVE TfXT TO Po a Rfa 

FNaMf-1 LD PPOG^AM \| A ME POlNr E » 

tupa-z convfrt char i-move to prin 

1 LD wm of prog name 

6 SHIFT TO POSITION 

TOPA-Z CONVERT CHAR 2-M0VE TO PRIN 

2 LD WDH OF PROG NAME 
16 SHIFT TO EXTENSION 

1 LOAD kJDI OF PROG NAMF 
12 SHIFT ACC AMn EXTENSION 
TQPA-Z CONVERT CHAR 3"M0VE TO PRIN 

2 LOAD *f02 OF PRC>G NAMf 
2 SHIFT TO POSITION 

TOPA-Z CONVFRT CHAR 4"M0VE TO PRIN 

2 LOAD WD* 2 OF PROG NAMf 

8 SHIFT TO POSITION 

TOPA-Z CONVERT CHAR R"MOVE TO PRIN 

PRINN-Z PRINT a LINF 



L 
L 



COMMON SIZE TO PRINT AREA 

COMA-Z GET ADOR .COMMON. 

ptext-z 8r to move tfxt to po &rea 

i.jils-z initlz integfr con convert 

csizf get size of common 

convt-3 save in convfrSion a^ea 
binry go convert to decimal 



SEITF 



420 
421 
422 
423 
424 

425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
44f) 
44] 
442 
4^3 
444 
445 

446 
447 

448 

449 

450 

451 
452 
453 
454 

455 

&56 
457 

458 
459 
460 

461 

462 

463 
464 

465 
466 
467 

a 68 
4 69 

4 7o 
471 

472 
4 73 

4 74 

4 75 
a76 

4 77 

4 78 
^79 



* 



INSKEL COMMOM SjZE TO PRINT A-3EA 



Vr 









in 

BST 

LH 

STO 

BST 

esi 



RST 

bsi 

STO 

RSI 



B5l 
BSI 
!.n 

S 

STO 

STo 

RST 

bSt 



SLA 

STo 

in 
bsi 

in 
bsi 

RSI 



csooo or 

8SC 

A 

STo 

BSC 

CS010 RSC 



L 
L 



L 
L 
L 



INPKA-Z 

PTEXT-Z 

INTLS-Z 

LCOMN 

CONVT-3 

BINRY 

PRINN-Z 



3E 



>R 



ADO" , IN S *EL COMMON. 
MOVF TEXT TO PRINT aRfA 

initlz intere* con convert 
get size of i^skfl rommonj 
save it in conversion area 
to decimal 

U N E 



GO 
GO 



CONVERT 

PRINT A 



SIZE OF WORK AREA TO PRINT ARfA 



1 VARA-Z 

3 PTEXT-Z 

3 INTLS-Z 

L SOFXT 

L CONVT-3 

L BINRY 



GET AQDH .VARIABLES. 
MOVE TEXT TO P«INT A9EA 
INITLZ INTE3FR CON CONVERT 
GET SIZE OF WORK AREA 
SAVE IN CONVERT WoRQ 
CONVERT TO DECIMAL 



CONSTANTS AND PROGRAM AREA SI7E 
TO PRINT AREA 

PROA-Z GET A0O« .PROGRAM, 
PTEXT-Z MOVE TEXT TO P*INT A»EA 
INTLS-Z INITLZ INTEGER CON CONVERT 
50FNS COMPUTE LENGTH OF PROGRAM 
AREA 

sofxt subtract sizf of wor* area 

sofns save length of program area 

convt-3 save in conversion a^ea 

binry convert to decimal 

prinn-z print output 



CHECK FOR CORE SIZE ERRORS 

CLEAR TEMPORARY ACC'JmUi ATOR 



1* 
MSTP 



L CSIZE 
CSOOQ 

L SOFXT 
CSOOO 

L SOFNS 
CSOOO 



»SC L EXIT 



CHECK COMMON A«EA SUE 

BR TO CHECK CO*E SlZr FRROR 

CHECK VARIABLE AREA SIZE 
3R TO CHECK CO*E SlZr FRROR 

CHECK PROGRAM AREA St'Zf 

3R TO CHECK cO*E SlZjr f.-RROR 

EXIT 



*-* LINK 

L CS0 5 0» Z ERROR IF SIZF NEGATIVE 

MSTP 
MSTP 
L CS05Q1 Z BRANCH IF OVERFLOW 



CSOOO 



HETURM 



SEITE 



48O 

481 
^82 
483 
484 
485 
486 

487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 

soo 

501 

502 
503 
504 
505 
506 
5 07 
5 08 

5O9 
510 

511 
512 

513 

51* 
515 

516 
517 

518 

519 

520 
521 

522 
523 

524 
525 
526 

527 

528 
529 
530 
531 

532 

533 
534 

535 
536 

537 

538 

539 



INDICATE SIZE ERROR 



CS050 LD 
STo 

851 

DC 

« 

mstp oc 

LD 

AMD 

BSC 

1.0 

5 

A 

STO 
1.0* 

BSC 






atp a 



L 
L 
L 



FI^E 
SOFS 

ROLRX 
28 



DC 

i_n 

SRT 
RSI 
SLT 
RSI 
SLT 
RSI 
SLT 
RSI 

rSt 
rsc 

intls nc 

LDX 

STX 

SLA 

STO 

STO 

LD 

STO 

I.DX 

STX 

BSC 

P T E XT DC 
STO 

HTES1 LDX 
SLT 

L.DX 

LOOPP MDX 
' D 



1 
3 

3 
3 

3 
3 

1 1 

T 



PUT ER*OP CDOE IN EpRO 
PARAMETER FOR PHASE 28 
GET PHASE-PR 



VIM 



SURR. MO^E SYMBOL TA3LE POINTER 

LINK 

GET SYM TRL TO WORD 

MASK3-Z TEST FOR DIMENSION 

Z SKIP IF NOT DIMENSIONED 

CM3-Z LD MIMUS 3 IF DIMENSIONED 

3 DECR 3Y 3 

STP-Z DECR SYM TBL P T BY 3 OP 6 

STP-Z SAVE SYM TRL POINTER, 

STP PUT SYM TBL PT IN XR 1 

MSTP RETURN 



MOVE 

CLOC-Z 

12 
TOPAH 

4 

TOPAH 

4 

TOPAH 

4 

TOPAH 

TOPAB 

ATPA 



ADDRESS TO PAREA 

LINK EN TR Y °OlNT 
GET HEX LOC OF CURRENT CON 
SHIFT OFF LOWER 3 HEv cHARS 
HEX CHAR Po aRFA 
CHAR FR EXTENSION 
HEX CHAR Pn &RFA 
CHAR FR EXTENSION 

HFX CHaR P£>_aREA 

CH^H FR 



BR TO 
SHIFT 
BR TO 
SHIFT 

BR TO 

SHIFT 

RR TO 

PUT rlank 

RETURN! 



PUT 
njXT 
PUT 
NXT 
PUT 
LAST 



PUT 



HEX CHAR 
IM PRINT 



EvTfNSIO 

Po aRFA 
A^Ea 



? 
L? 

L 
L 

3 
L 

? 
L2 
I 



SET UP CONVERSION ROUTINE FOR 
TNTEGER CONSTANTS. 

*-« ENTRY POINT 

6 SET FIELD WIDTH 

WW *TO 6 

16 CLEAR 2ND WD Of CONVERSION 

CONVT-? *AREA 

FRMAI SET INTEGER CONVERSION CODE 

0143-7 SET BINARY DECIMAL PoInT 

DIN *FOR INCREMENTING 

2 SET HATA TYPE TO 

FORTp *I FORMAT 

INTLS HETUPN 

PUT TEXT IN PRINT ARFA. 

ADDRESS OF TEXT IN A-«EG ON EmTRY 



I? 



13 




HTESl 

«_# 
16 

PAP 

HTESl 

HTESl 



1 



EN TRY r oiNT 
SAVE ADDR OF TEXT 
PUT WD COUNT IN XR2 
C|_EAp ACC 

PUT PR AREA POINTER xRi 
1.1 INCP ADDR POINTER 
1 LD PACKED CHARACTER 



Sfc" T TE 10 



540 S*T 8 SHIFT RIGHT CHAR EXTENSION 

541 SLA 6 SHIFT LEFT TO PRINT POSITIO 

542 STO 3 SAVE IN PRIMT LINE 

5 43 SIT 16 SHIFT RIGHT CHAR TO POSITIO 

544 STO 3 1 SAVE IN PRIMT LINE 

545 MOX 3 2 INCR PRINT L'TNE POINTER 

546 MOX ? -1 DECR WORD COUNT 

547 MDX LOOPP LOOP IF COUMT NOT FINISHED 

548 STX 3 PAP SAVE MEW PRIMT AREA POTNTER 

549 (_0X |_-> Z RESET XR3 FOR CONSTANTS 

550 HTES3 RSC f PTEXT RETURN) 

551 * 

552 * 

553 * SUBROUTINE 

554 # MOVE CHAR IN ACC TO PR AREA UnCHANGE 

555 * 

556 TOPAU DC C LINK 

557 3TO 5T0CH SAVE CHAR TO BE PRINTED 

558 TOPaX LO STOCH LD CHaR To BE PRINTED 

559 STO I PAP SAVE IN PRIMT AREA 

5 60 MOX L PAP»1 MOVE PRINT AREA POINTER 

561 BSC I TOPAu RETUPM 

562 * 

563 STOCH DC •-* CHARACTER TO BE PRINTED 

564 HOOOF OC /000E CONSTANT 

565 H000A DC /000A CONSTANT 

566 H003q DC /0039 CONSTANT 

567 * 

568 « SUBROUTINE 

569 * CONVERT CHAR I sj ACC INTO 

57 * EBC-COOE* THEM MOVE TO PRINT aRfA 
57i * 

572 TOPA DC LINK 

573 AND 3 H3F00-Z MASK 3ITS 2-7 

574 *SC L TOPA2, - BR IF B LANK 

575 « 

576 * NOTE 

577 # IF OTHER SPECIAL CHARACTERS TwAm 

578 * BLANK ARE EXPFCTED, TESTING SwOilLO 

579 * BE HERE 

580 _ OP HC00O ADO FIRST z filTS aLPhA.NOS 

581 TOPAl STO STOCH SAVE IN CHAR STORAGE Wn 

582 LD TOPA MOVE LINK 

583 STO TOPAU *TO OUTPUT 

584 MDX TOPAX BR TO PRINT CHAR JN fBC 

585 TOPA? LD 3 H4000-Z LOAD E8C BLANK 

586 MDX TOPAl 3R TO PUT Im BUFFER 

587 * 

588 » 

589 * SUBROUTINE 

590 » MOVE HEX CHAR TO PRIMT AREA 

591 * 

59? TOPAH DC LINK 

593 a n d hooof s*ve 0Nl -Y bits 12^15 

594 S H000A TEST FO* COM LT A 

595 RSC Z SKI° IF GT 9 

596 A HU039 RESTORE CON EBC BITS 

597 A 3 1 ADO 1 _ . _ 

598 SLA 8 SHIFT TO EBC FORMAT 

5 99 RSI TOPA CONVERT AND MO^E 



SEITE il 

600 RSC I TOPAH RETURN 

601 * 

60 2 * PUT ONE BLANK IN PRlMT AREA 

603 TOPAB DC ENTRY POINT 

604 SLA 16 CLEAR ACC 

6 05 BSI TOPA PUT OUT BLANK 

606 RSC I TOPAB RETURN 

607 * 

608 • SUBROUTINE 

6 09 * BLANK TO PRINT A «EA 

610 * 

611 BLKPA DC LINK 

612 LO 3 H^OOO-Z PUT EBC BLANK ACC 

613 I DX L3 121 LO BFR SIZE IN XR3 
61A BLKP1 STO L3 BUF-1 SAVE BLANK IN PR AREa 

6 15 MOX 3 -1 . DECR BUFFER COUNT 

616 MOX BLKP1 CONTINUE IF CNT NOT * 

6 17 LOX L3 Z R ESET XR3 WITH CON AnDR 

618 BSC I BLKPA RETURN 

619 * 

620 • CONSTANTS AREA 

621 * NOTE— GREAT CARE SHOULD BE USED 

622 * IN CHANGING CONSTANTS AROUND AS SOME 

623 * OF THE LOCATIONS ARE REFERENCED RLTV 
62* * TO THE START OD THE AREA, 

625 * XR3 IS LOADED WJ[TH THE ADDRESS OF Z 

626 « FOR REFERENCE TO THE CONSTANT? 

627 * 

628 Z DC CONSTANTO 

629 DC 1 C ONST A NT ON E 

630 DC 2 CONSTANT TWO 

631 DC 3 CONSTANT THREE 

6 32 DC 4 CONSTANT FOUR 

633 PAPIN DC BUF INITIAL VALUE. OF PAP 

634 PAP DC BUF PRINT AREA POINTER . 

635 INCR DC 20 INCREMENT OF* PRINT ApEa 

636 * IS CHANGED INTO 24 WHEN 

637 * EXTENDED PRECISION 

638 HC00O DC /COOO CONSTANT MAS.K ^ 

639 RVARF DC /0002 REAL VARIABLE FORMAT,, 

640 STPS DC SYMBOL TABLE PASS SWTTCH 

641 CLOC DC LOCATION OF CURRENT cONSTAN 

642 STP DC SYMBOL TABLE POINTER 

643 MASK3 DC /1800 CONSTANT MASK 

644 CM3 DC /FFFD CONSTANT MINUS 3 

645 H 7E06 DC /7E00 EQUAL SIGN 

646 LNEND DC BUF*6o LINE END CONSTANT 

6 47 Dl43 DC 143 CONSTANT 

648 H3FO0 DC /3F00 CONSTANT MASK 

649 H4000 DC /*000 CONSTANT MASK 

650 TEX2A DC TEXT 2 ADDR OF MSG TO PRINT 

651 CORA DC CORTX ADDR OF MSG TO PRINT 

652 COMA DC COMTX ADDR OF MSg TO PRINT 

653 INSKA DC INSKX ADDR OF MSG. TO PRINT 

654 VARA DC VaRTX ADDR OF MSG TO PRINT 

655 PROA DC PROTX ADDR OF MSG TO PRINT 

656 D60 [)C 60 CONSTANT 

657 * 

658 * SUBROUTINE 

659 * SET UP TO PRINT A LINE *ND GO PRINT 



660 
661 
662 
663 
664 

665 
666 
667 

668 

669 

670 

671 
672 
673 

674 
675 
676 
677 
678 

679 

68o 

681 

682 
683 

684 
685 

6 IS 
687 

688 

689 
69 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

7OI 

702 

703 

704 

705 

7O6 

70? 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

7I8 

719 
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* 




♦THE LINE 


PRINN 


DC 


««* 


ENTRY POINT 




L.0 


3 PAPIN-Z 


GET INT VALUF OF PAP 




STO 


3 PAP-Z 


RESET PAP 




STO 


L AREA 


SAVE PRINT AREA 




LD 


3 D60-Z 


SET WORD COUNT 




STO 


L WUCNT 


* 60 




BSI 


L PRINT 


BR TO PRINT A LINE 




RSI 


3 BLKPA-Z 


CLEAR PRINT AREA 


« 


esc 


I PRINN 


RETURN 


# 
C128 


DC 


128 


CONSTANT 


MONE 


DC 


-1 


CONSTANT 


TEN 


DC 


10 


CONSTANT 


H00C5 


oc 


/00C5 


CONSTANT MASK 


MULT 


DC 


«•» 


RETURN ADDRESS 




BSC 


L MULT1 


GO TO MULTIPLY SUBROUTINE 


NORM 


oc„ 


*«* 


RETURN ADDRESS 




bsc 


L NORMi 


GO TO NORMALIZE ROUTlNF 


FIVE 


DC 


5 


CONSTANT 


H8000 


DC 


/H000 


CONSTANT MASK 


MINUS 


DC 


/OO60 


E9C MINUS RIGHT JUSTIFIED 


BLANK 


DC 


/004o 


E8C BLANK RIGHT JUSTIFIED 


SIX 


DC 


6 


CONSTANT 


« 




DATA STORAGE AREA FOR BlNARY-nEClMAL 


# 




CONVERSION SUBROUTINE 


* 

CHAR 


DC 





CHARACTER STORAGE 


FRM A I 


DC 





INTEGER OR DEC M L FLA--* 


FORTP 


DC 





TYPE OF DATA TO BE OUTPUT 


LKTYP 


DC 





TEMPORARY STORAGE ARPA 


X 


EQU 


CHAR 


REFERENCE PT FOR daTa AREA 




RSS 


E 




rwo 


nc 


2 


CONSTANT EVEN LOC 


ONE 


DC 


1 


CONSTANT OnD LOC 


H0048 


DC 


/0048 


CONSTANT EV/E-J LOC 


HOOFO 


DC 


/OOFO 


CONSTANT OnD LOC 


JCON 


DC 





CHAR STO MULTIPLY EVEN LOC 




DC 





♦SUBROUTINE OnD LOC 


B8 


DC 





E9C REPRESENTATION EVEN LOC 




DC 





♦OF EXPONENT OnD LOC 


EENCT 


DC 





EXPONENT SIGN EVEN LOC 




DC 





FIVE OnD LOC 




DC 





♦WORD Ev/EM LOC 




DC 





♦CONVERSION OnD LOC 




DC 





♦AREA EVEN LOC 


CONVT 


DC 





* OnD LOC 


SIGN 


DC 





SIGN COUNT EVEN LOC 


DIVCT 


DC 





OIVIHE COUNT ODD LOC 


MANSN 


DC 





MANTISSA SIGN EVEN LOC 


TEMP 


DC 





TEMPORARY STORAGE OnD LOC 


WW 


DC 





FIELD WIDTH EvEM LOC 


OD 


DC 





DECIMAL COUNT OnD LOC 


PREC 


DC 





PRECISION EvEM LOC 


BIN 


DC 





BINARY POINT C^T OnD LOC 



* 




SUBROUTINE 
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720 * MULTIPLY 5 CONVERSION CHARACTfRS RY 

721 * 10 

722 * 

723 MUlTi sTq 2 JCON ] - x STORE CHARACTER 

724 LHX 1 5 SET UP INDEX LOOP FOp 5 

725 MULT3 LD Ll EENCT GET WQS TO CONVERT 

726 M 2 TEN-X MULTIPLY BY 10 

7 27 3SC Z SKIP IF RESULT NOT - 

728 A 2 TEM-X ADD 10 TO RESULT 

7 29 AH 2 UCON-X ADD PRESENT CHARACTEo 

730 STO 2 JCON 1-X STORE MOST SIGNIFICANT BIT 

7 31 SLT 16 SHIFT LEAST SIGNIFICANT TO 

732 STO Ll EENCT *ACC AND SAVE 

733 MOX 1 -1 DECR WD CNT BY 1 

7 34 MOX MULT3 LOOP UNLESS QNT EXHAUSTED 

735 3SC I MULT RETURN TO CftLL £R 

736 * 

737 * NORMALIZATION SUBROUTINE 

738 • 

739 NORM1 I n ? C0N V T-4" X IS LEFTMOST WORD OF NO* 

740 BSC L NORMTt - YES. SO CHECK FURTHER 
7*1 RSI NORRT N0» GO NORMALIZE RIGHT 

7 42 MDX NO«Ml BRANCH BACK TO CHECK NORM 

743 NORMT I n 7 C0NVT-3- x IS 2ND WORQ FROM LEFT NEG. 

744 BSC I NORM, Z YES» ReTURn TO CALLING PROG 

745 gsi NORLT N0» GO TO NORM LEFT 

746 MDX NORM1 BRANCH BACK TO CHECK NORM 

747 * 

748 * NORMALIZE LEFT SUBROUTINE 
74O « 

750 NORLT DC ♦-* NORMALIZE LEFT 

751 SLT 32 SHIFT 

752 I.DX T 5 "ANSWER 

753 NORM7 LD lT fenct *left 

754 3TE 31 *ONE 

755 STO Ll EENCT *BIT 

756 SLT 15 THIS MEANS ALL. 5 

757 Mnx T -1 *WORDS OF 

758 M nx NORM7 "CONVERSION AREA 

759 L H ? 6IN-X DECR BINARY 

760 S 2 ONE-X "POINT COUNTER 

761 STO 2 BIN-X *BY 1 

762 BSC I NORLT RETURN 

763 * 

764 * NORMALIZE RIGHT SUBROUTINE 

?65 * 

766 NORRT nC *-* NORMALIZE RIGHT ENTRY 

767 N0RM4 L nx I - 5 SHIFT 

768 SLT 3 2 *ALL 

769 LD LT SIGN «FIVF 

770 RTE 1 DWORDS 

771 STO lT SIGN *0F CONVERSION 

772 pTE l b *AREA 

773 M nx T 1 BRIGHT 

774 mox N0RM4 2 ♦ONE 91 T 

775 lD 2 BIN-X INCR BINARY POlN 

776 t\ ?. ONE-X ♦COUMTFR 

777 sT p 2 BIN-X *BY ONE 

778 BSC J NORRT HETURNI 

779 » 
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780 


«• 






DIVIDE 5 WORD ANSWER BY 10 


?B1 


«• 










782 


DIVID 


DC 




«•-«• 


ENTRY point 


783 




LHX 


T 


-4 


LOAD INDEX FOR FOUR DIVIDES 


784 




SLT 




32 


CLEAR ACC AMD EXTENSION 


785 


DIV1 


LO 


2 


ONE-X 


LO CONSTANT ONE 


786 




STO 


? 


LKTYP-X 


SAVE LKTYP 


787 




LH 


Li 


SIGN 


LO NO. TO BE DIVIDED 


788 




RTF 




lb 


EXCHANGE ACC AND FXTfNSION 


789 




S 


2 


FIVE-X 


SUBTRACT 5 FOR' ROUNDtNG 


790 




BSC 


L 


• 2, 7 


BR IF NEGATIVE 


79i 




MDX 


L 


LKTYP,- 


2 SET L<TYP -1 AND SkIP 


792 




A 


2 


FIVE-X 


RESTORE 5 PRFVIOUSLY DELETE 


793 




D 


2 


TEN-X 


DIVIDE BY \q 


794 




MDX 


L 


LKTYP,- 


2 SET L<TYP -"{♦SKIP Op--?, CON 


795 




OR 


2 


H8000-X 


MASK IN NEGATIVE SIGN 


79ft 




sto 


LI 


SIGN 


Save mo back jn a&ea 


797 




rmx 


1 


1 


INCR AREA POINTER 


798 




MDX 




DIV1 


BR IF i.OOP MOT FINISHED 


799 


RfcTZY 


bSc 


I 


DIVIO 


RETURN TO CAl'LlMG PROGRAM 


^00 


# 










801 


* 






ENTRY POINT TO BINARY-DECIMAL 


H02 


* 






CONVERSION SUBROUTINE 


803 


•«• 










804 


binry 


DC 




#-# 


ENTRY uOINT 


805 




STX 


LI 


IR13 i 


SAVE XRl 


«06 




STX 


L2 


IR13 3 


SAVE XR2 


h07 




LDX 


L2 


X 


GET COM AREA POINTER 


BOB 




L^X 


U 


FORTP 


GET TYPE OF DATA TO rE O/P 


809 




RSC 


11 


# 


BR TO CORRESPONDING oRqG LO 


910 




DC 




Din4 


E TYPE FORMAT 


811 




DC 




BI^7 


F TYP E FO«M A T 


812 




DC 




BIN3 


I TYPE FORMAT 


8*3 


HINH 


LD 


7 


BIM-X 


NORM BINARY PT TO 12q 


«14 




S 


2 


Cl2p-X 


IS POINT GR 128 


«15 




RSC 




Z 


SKIP IF YES 


«lft 




MDX 




BINI7 


NO, GO TO NORM HishT 


^7 




BSC 


L 


BlNi9, 


br if binary pt 12^ 


818 




8SI 




NORLT 


BINARY RT GT 123, NOoM LEFT 


819 




MDX 




BINU 


BB BACK T CHECK RIN.^Y PT 


a, 20 


BIM17 


8SI 




NORRT 


BR TO mORMAL'TZ £ RIGHT 


821 




MDX 




BINU 


BR BACK TO CHECK BlN.sRy PT 


«22 


■«• 










823 


•» 






E TYPE 


DATA OUTPUT 


8 24 


■» 










825 


BIN* 


in 


? 


six-x 


SET UP COUNT FUR 2 StGmS 


8 2ft 




MDX 




BIN7 1 


GO CHECK INPUT MODE 


s27 


# 










28 


■» 






I TYPE 


DATA OUTPUT 


q29 


# 










p3o 


BIN3 


lo 


2 


MONE-X 


SET UP A FAtSE DECIMAL 


h31 




STO 


2 


UD-X 


•COUNT EOR 


«3? 


8IN7 


LH 


p 


TWO-X 


•COMMON CALCULATION rOP 


h33 




STO 


| 


TEMP-X 


♦ AVAILABLE OR POSITION* 


m34 


8IN5 


L* 


? 


WW-X 


LOAD FIELD WIDTH 


f^35 




S 


2 


OU-X 


•LESS DECIMAL COUNT 


33<S 




s 


2 


TEMP-X 


•LESS NO. SIGNS TO GrT 


«;37 




STO 


2 


TEMP-X 


•MO. AVAIL PRINT POStTfONS 


838 




SLT 




32 


CLEAP ACC AMD EXTENStON 


ft 39 




STO 


2 


CONVT-4 


>-X CLR 1ST WD CONVERSION AREA 
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,q40 STD 2 COrtVT-1-X CLR 4TH AMD STH.WOoOS 

841 STO 2 DIVCT-X CLEAR DIVIDE COUNT 

PA?. LD 2 BLANk-X PUT RLANKS IN 

843 STO 2 EENCT-X *EXPO\JENT AMD 

p44 STO 2 MANSN-X *MANTISSA SIGNS 

ft45 L nx T 2 SET XR1 TO MO. WDS To C.HK 

846 BIM52 LD Ll EENCT 1 CHECK CONVERSION WD 

R47 RSC 7. SKIP IP ZERO 

«4S MDX 91N51 SR OUT IF MOT 

«49 MDX "l -1 DECR a/0 COUMf 

«50 MDX 8IN52 8R BACK IF MORE WDS tO CHEC 

851 I OD ' H00F0-X LOOP FINISHED* PUT EpC 

852 STD 2 3B-X *IN O/P EXPONENT 

h53 l h 2 FORTP-X CHECK FOR I TY^E FORMAT TO 

h54 s ? TWO-X *0UTPJT ZEROS IMSTEA- nF 

ass bsc z *blan<s For a real 

856 M nx BIMlR *ZERO COMPUTATION 

^S7 L r) 2 ONE-X SET FlAG TO OUTPUT 

«58 STO 2 DIVCT-X *ZEROS 

%S9 MDX 81N19 BRANCH TO OUTPUT 

«60 BIN51 LDD ? CONVT-3-* LD mamTISSA ACC EXTENSION 

«63 PSC - SKIP IF NEGATIVE 

862 MDX BIM9 8R TO NORMALIZE 

363 MOX L MANSN.32 SET MANTISSA SIGN NEGATIVE 

*64 SLT 32 CLEAR ACC-EXTE^SION tO GET 

«65 SO 2 CONVT-3-X "ABSOLUTE VAL U E OF ^AwTTSS 

866 31M9 SLT 1 SHIFT OUT SIGN Sit 

867 STD 2 CONVT-3-* SAVE ABS VALUE W/O <IPN 
068 LO ? FRMAl-X TEST FOR INTEGERS 

Ht>9 R S C L 8IN13, - 8 a IF InJeGE® 5 

q70 LD ? ONE-X SET Up FOR ROUNDING, *,CC 1 

H 7l MOX L RREC IS PRECISION! EXTENDED 

$7? S»T 8 YES, SHIFT TOTAL OF ?5 

73 SRT 7 N0» S^iFT 7 

874 AO ? C0MVT-3-X ADD 2«0S TO BE CONVERTED 

r75 BSf C TEST FOR OVERFLOW 

r76 MDX * 1 OVERFLOW, BRANCH OVER MxT WD 

h77 MD< IRll NO OVERFLOW, BRANCH OUT 

PJH SRT 1 SHIFT \ MORF TO ROUNn 

p,79 OR ? HBOOO-X PUT Rif IN Siqn POSITION 

880 STD ? C0MVT-3-X SAVE CONVERSION Wn 

flHl LD 2 BIN-X INCR 3INARY 

B82 a 2 ONE-X *P0INT COUNTER 

HH3 STO 2 8IM-X *3Y 1 

884 M nx 3IN13 1 BR PAST NXT 2 «DS 

885 IRll STO 2 C0MVT-3~ X STORE IN CONVERSION 

886 BIM13 LD 2 BIN-X IS BlMARY PT GE 128 
H87 S 2 C128-X GREATER THAN) 1*8 
flHH RSC I SKIP IF GE 128 

889 wDX BIN10 GO HANDLE 

A90 RSC L BIN11, BR IF 128 

B9\ BINi? RSI DIVID GO DIVIDE AnjSWER BY 70 

B 92 RSI ? NORM-X GO NORMALIZE ANSWER 

«93 MDX I. OIVCT* 1 IMCR DIVIDE COUNT BY 1 

89* NOP 

P,95 Ln ? BIN-X TEST IF BINARY PT LE 1?8 

Si96 S 2 C128-K *AFTFR DIVISION 

*97 RSC -Z SKIP IF YES 

ft9R MDx 9IN12 NO, DIVIDE AGAlM 

H99 8 1 Nil l-T) 2 FURTP-X TEST OUTPUT F TYPE 
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9 on 




RSc 




Z 


SKIP IF E TYPE 


QUI 




MDX 




8IN14 


NOT E TYPE* RR TO N09M 


q02 




Lf> 


2 


DIVCT-X 


TEST DIVIDE COUNT 


4 03 




RSc 


L. 


8IN16,- 


IF POSITIVE nR ZERO» BR OUT 


9 4 


BIN15 


LD 


T 


MINUS-X 


PUT NEGATIVF sign out fop 


gob. 




STO 


P 


FE^T^X 


»£X p DNI E NT Sj^N 


906 




SLA 




16 


CLEAR ACC 


90 7 




S 


9 


oivcr-x 


GET A3S VALUE OF DIVtDE CNT 


908 


8IN16 


RTF 




16 


PUT DIVIDE CMT IN EXTENSION 


909 




SLA 




16 


CLEAR ACC 


910 




STO 


3 


DIVCT-X 


CLEAR DIVIDE COUNT W.^Rn 


911 







1 


TEN-X 


DIVIDE DIVIDE CNT RY lo 


912 




A^ 


2 


HOOFO-X 


ADD E3C TO CONVERT To EBC 


9 1 3 




STn 


2 


30-X 


save ebc Ex»oNtNT 


9 14 




mox 




3INU 


BRANCH TO NORMALIZE 


915 


3IN10 


LO 


9 


FORTp-X 


TEST FOR E TYPE OUTPUT 


9 16 




9SC 




Z 


SKIP IF YES 


917 




MDX 




8T.NH 


N0» GO HANDLF NEG F TYPE 


918 




8SI 


9 


MULT-X 


multiply answer by i" 


9 19 




R 5 I 


9 


NORM-X 


go normalizf A NSi *F r 


920 




MDX 


L 


0IVCT.-1 


oecR qtvide~coont RY i 


9 21 




MDX 




8IN13 


GO CHECK BINARY POINT 


q22 




MOX 




3IN13 


*AGAIM AFTER MULTIPLYING 


923 


« 










9 24 


■» 






SUBROUTINE 


925 


it 






OUTPUT CHARACTER TO PRINT RUFfEp 


926 


« 










927 


ChARo 


DC 




#-# 


ENTRY POINT 


928 




SLA 




8 


SHIFT CHAR to LEFT HALF OF 


92* 




STO 


I 


pap 


*WD AND STORF IN PRImT RFR 


9 3 




mox 


L 


PAP,l 


INCR SUFFER POINTER 


93 1 


CHAR3 


rsc 


I 


CHARO 


RETURN TO CALLING PRoGrAM 


■432 


<* 










•J 33 

934 
g35 


a 
$ 






OUTPUT CONVERTED DECIMAL NUMBER 


BIN19 


i..n 


9 


TEMP-X 


GET NO, AVAII ABLE POSITIONS 


936 




s 


2 


DIVCT-X 


COMPARE ^ITH DIVIDE rOuNT 


o37 




RSc 






SKIP IF NO. POSITIONS rIGGE 


938 




MDX 




BIMle 


BR TO PUT OUT CHARACTERS 


939 




sto 





TEMP-X 


STORF EXCESS NO, POSfTfONS 


9 4 


8IM20 


LO 


9 


SLANK-X 


PUT OUT NO, OF 


94 1 




RSI 




chaRo 


*3LAN< CHARACTERS EQ«'Al 


94? 




MOX 


L 


TEMP,-1 


*TO FXCESS 


943 




mox 




3IN20 


CONTINUE UNTIL LOOP ^OnE 


944 


8IN18 


L n 


2 


mansn-x 


LD MANTISSA sign 


94B 




RSI 




CHARo 


PUT IN PRINT BUFFER 


94b 




LD 


2 


FRMAI-X 


CHECK FOR INTEGER 


947 




esc 




z 


skip if it is an intcgfR 


948 




MDX 




» 2 


ELSE»3RANCH AHEAD 


949 




L n 


9 


MONE-X 


SET LARGE VAlUE IN L*ST 


9 5'} 




STO 


2 


CONVT-X 


*WORD OF CONVERSION *RFA 


951 




L,n 


2 


DIVCT-X 


LD DIVIDE COUNT 


9 5? 




RSC 






SKIP IP NOT ZERO 


953 




MOX 




B1M23 


GO HANDLE ZPRD 


954 


8IN28 


SLA 




16 


CLEAR ACC 


955 




STO 


p 


C0NVT-4- 


X CLEAR CONVreSlON WOdD 1 


956 




RSI 
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